[vb]根据数n,输出n个9

Private Sub Command1_Click()
Text2 = String(Val(Text1), "9")
End Sub

Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Val(Text1.Text)
Text2.Text = Text2.Text & "9"
Next i
End Sub
刚才错了,修改过了

输入以下代码，可以在改变 text1 中的值时使 text2 中的结果动态显示，不需要命令按钮。

Private Sub Text1_Change()
Text2.Text = ""
Dim a1&, a2&, b$
a1 = Val(Text1.Text)
For a2 = 1 To a1
b = b & "9"
Next a2
Text2.Text = b
End Sub

设置text2的 MultiLine 属性为 true.使其能接受多行文本。
设置text2的 ScroolBars 属性为 2-Vertical 使其具有垂直滚动条。

Private Sub Command1_Click()
Text2 = 10 ^ Text1 - 1
End Sub

比他简单，嘿嘿~不过Text2要够大，不然就变成科学计数法了~

for i=1 to int(text1.text)
k=k&"9"
next